10 REM * * * * * * * * * * * * * * * *
20 REM *      LIBRARY ADVENTURE      *
30 REM *             BY              *
32 REM *         DAWN BURGOON        *
34 REM *  TRANSLATED FOR COMMODORE   *
36 REM *       BY DONNA K. WOODY     *
50 REM * * * * * * * * * * * * * * * *
60 :
70 REM *** VARIABLES USED           ***
80 REM ***   L$=LOCATION DESCRIPTION
90 REM ***   C1$=CHOICE 1
100 REM ***  C2$=CHOICE 2
110 REM ***  R1$=RESPONSE TO CHOICE 1
120 REM ***  R2$=RESPONSE TO CHOICE 2
130 REM ***  A$=USER RESPONSE
150 REM ***  I=FOR/NEXT LOOP VARIABLE
160 REM ***  J=COUNTING LOOP VARIABLE
170 REM ***  K=COUNTING LOOP VARIABLE
180 :
190 POKE783,PEEK(783)AND254:S=65520:POKE53280,9:POKE53281,7:PRINTCHR$(144)
200 PRINTCHR$(14):PRINTCHR$(8)
210 :
220 REM *** TITLE                   ***
230 :
240 PRINTCHR$(147)
250 POKE781,4:POKE782,4:SYSS:PRINT"[204] [201] [194] [210] [193] [210] [217]   [193] [196] [214] [197] [206] [212] [213] [210] [197]"
260 POKE781,7:POKE782,19:SYSS:PRINT"BY"
270 POKE781,10:POKE782,14:SYSS:PRINT"[196]AWN [194]URGOON"
280 POKE781,12:POKE782,15:SYSS:PRINT"[193]PRIL 1984"
282 POKE781,15:POKE782,4:SYSS:PRINT"[212]RANSLATED FOR THE [195]OMMODORE BY"
284 POKE781,17:POKE782,13:SYSS:PRINT"[196]ONNA [203]. [215]OODY"
440 :
450 REM *** USER INSTRUCTIONS       ***
460 :
470 POKE781,22:POKE782,3:SYSS:PRINT"[215]OULD YOU LIKE INSTRUCTIONS (Y/N)? ";
490 POKE198,0:WAIT198,1:GETA$
500 IFA$="Y"ORA$="[217]"THEN520
505 IFA$="N"ORA$="[206]"THEN 800
510 GOTO470
520 PRINTCHR$(147)
530 PRINT"----------------------------------------"
540 PRINTTAB(7)"[145][201] [206] [211] [212] [210] [213] [195] [212] [201] [207] [206] [211]"
550 PRINT"----------------------------------------"
560 PRINT"     [217]OUR SPACE SHIP HAS JUST LANDED ON"
570 PRINT:PRINT"THE STRANGE AND WONDROUS PLANET OF"
580 PRINT:PRINT"[204]IBRARIUM.  [217]OU HAVE VOLUNTEERED TO"
590 PRINT:PRINT"EXPLORE THIS PLANET AND FIND OUT ABOUT"
600 PRINT:PRINT"ITS RESOURCES.  [217]OU CAN TAKE WITH YOU"
610 PRINT:PRINT"A PORTABLE COMPUTER BACKPACK WHICH"
620 PRINT:PRINT"CONTAINS A DATABASE OF INFORMATION"
630 PRINT:PRINT"ABOUT THE GALAXY."
640 POKE781,22:POKE782,7:SYSS:PRINT"[208]RESS <[210][197][212][213][210][206]> TO CONTINUE."
650 POKE198,0:WAIT198,1:GETA$:IFA$=CHR$(13)THENPRINTCHR$(147)
660 IFA$<>CHR$(13)THEN640
670 PRINT"[217]OU WILL HAVE TO USE YOUR KNOWLEDGE OF"
680 PRINT:PRINT"LIBRARIES IN ORDER TO SEARCH THE"
690 PRINT:PRINT"DATABASE.  [194]EFORE MAKING A DECISION,"
700 PRINT:PRINT"YOU CAN CONSULT A TABLE OF THE"
710 PRINT:PRINT"'[196]EWEY [196]ECIMAL [211]YSTEM' TO HELP YOU"
720 PRINT:PRINT"DECIDE WHICH DATABASE TO SEARCH FOR"
730 PRINT:PRINT"FACTS ABOUT THE PLANET."
740 POKE781,22:POKE782,7:SYSS:PRINT"[208]RESS <[210][197][212][213][210][206]> TO CONTINUE."
750 POKE198,0:WAIT198,1:GETA$:IFA$=CHR$(13)THENPRINTCHR$(147)
760 IFA$<>CHR$(13)THEN740
770 :
780 REM *** DISPLAY ENCOUNTERS     ***
790 :
800 PRINTCHR$(147)
810 FORI=1TO10
815 POKE781,1:POKE782,14:SYSS:PRINT"[197]NCOUNTER #"I
820 ONIGOSUB2000,2100,2200,2300,2400,2500,2600,2700,2800,2900
870 POKE781,16:POKE782,0:SYSS
875 PRINT"[208]RESS 1, 2, OR [196] (TO DISPLAY THE [196]EWEY  [196]ECIMAL [211]YSTEM)"
880 :
890 REM *** ACCEPT USER INPUT       ***
900 :
910 POKE198,0:WAIT198,1:GETA$
920 IFA$<>"1"ANDA$<>"2"ANDA$<>"[196]"ANDA$<>"D"THEN910
930 IFA$="D"ORA$="[196]"THENK=K+1:GOTO1260
940 IFA$="1"THENPOKE781,19:POKE782,0:SYSS:PRINTR1$
950 IFA$="2"THENPOKE781,19:POKE782,0:SYSS:PRINTR2$
960 GOSUB1220
970 PRINTCHR$(147)
980 NEXT
990 :
1000 REM *** CONCLUSION             ***
1010 :
1020 PRINT:PRINT"  [193]S YOU SLEEP THE SHOST OF THE ANCIENT"
1030 PRINT:PRINT"LIBRARIUN [196]UI APPEARS IN YOUR DREAM."
1040 PRINT:PRINT"[200]E SAYS,'[217]OU ARE ON YOUR WAY TO FINDING"
1050 PRINT:PRINT"THE KEY TO KNOWLEDGE.  [213]SE IT WISELY AND"
1060 PRINT"THE GALAXY WILL BE YOURS.'"
1070 PRINT:PRINT"  [215]HEN YOU AWAKE, YOU CONTINUE ON YOUR"
1080 PRINT:PRINT"JOURNEY.  [217]OU WILL RETURN OFTEN TO"
1090 PRINT:PRINT"[204]IBRARIUM, FOR ITS RESOURCES ARE MANY."
1100 POKE781,23:POKE782,8:SYSS:PRINT"[208]RESS <[210][197][212][213][210][206]> TO CONTINUE."
1110 POKE198,0:WAIT198,1:GETA$:IFA$=CHR$(13)THENPRINTCHR$(147)
1120 IFA$<>CHR$(13)THEN1100
1130 POKE781,8:POKE782,0:SYSS:PRINT"[217]OU CONSULTED THE TABLE OF THE"
1140 PRINT"[196]EWEY [196]ECIMAL [211]YSTEM ";K;" TIMES."
1150 POKE781,15:POKE782,0:SYSS:PRINT"[196]O YOU WANT TO PLAY AGAIN? <Y/N) ";:
1160 POKE198,0:WAIT198,1:GETA$
1170 IFA$="Y"ORA$="[217]"THEN800
1180 IFA$="N"ORA$="[206]"THEN1430
1210 GOTO1150
1220 POKE781,23:POKE782,5:SYSS:PRINT"[208]RESS <[210][197][212][213][210][206]> TO CONTINUE.";
1225 POKE198,0:WAIT198,1:GETA$:RETURN
1230 :
1240 REM *** DEWEY DECIMAL SYSTEM   ***
1250 :
1260 PRINTCHR$(147):PRINT"----------------------------------------"
1265 POKE781,2:POKE782,10:SYSS:PRINT"[196][197][215][197][217] [196][197][195][201][205][193][204] [211][217][211][212][197][205]"
1270 PRINT"----------------------------------------"
1280 PRINT" 000     - [197]NCYCLOPEDIAS"
1290 PRINT" 100     - [208]HILOSOPHY"
1300 PRINT" 200     - [210]ELIGION"
1310 PRINT" 300     - [211]OCIAL [211]CIENCES, [198]OLKLORE"
1320 PRINT" 400     - [204]ANGUAGE, [196]ICTIONARIES"
1330 PRINT" 500     - [211]CIENCE, [193]NIMALS, [208]LANTS"
1340 PRINT" 600     - [211]PACE TRAVEL, [208]ETS, [195]OOKING,                [200]EALTH"
1350 PRINT" 700     - [205]USIC, [193]RT, [211]PORTS, [199]AMES"
1360 PRINT" 800     - [204]ITERATURE, [208]OETRY"
1370 PRINT" 900-919 - [199]EOGRAPHY"
1380 PRINT" 920,921 - [194]IOGRAPHY"
1390 PRINT" 930-999 - [200]ISTORY"
1400 POKE781,20:POKE782,7:SYSS:PRINT"[208]RESS <[210][197][212][213][210][206]> TO CONTINUE.";
1410 POKE198,0:WAIT198,1:GETA$:IFA$=CHR$(13)THENPRINTCHR$(147):GOTO815
1420 IFA$<>CHR$(13)THEN1400
1430 GOTO63000:REM   END *******
1950 :
1960 REM *** ENCOUNTERS             ***
1970 :
1980 REM *** ENCOUNTER #1           ***
1990 :
2000 POKE781,5:POKE782,0:SYSS:PRINT"[212]HE PLANET STRETCHES OUT BEFORE YOU. [201]T"
2010 PRINT"WOULD HELP TO HAVE A MAP TO GUIDE YOU."
2020 POKE781,10:POKE782,0:SYSS:PRINT"[217]OU SEARCH IN: "
2030 POKE781,12:POKE782,0:SYSS:PRINT"1) 910-919"
2040 POKE781,14:POKE782,0:SYSS:PRINT"2) 300'S"
2060 R1$="[199]OOD CHOICE!  [193]N ATLAS WOULD BE FOUND   IN 912."
2070 R2$="[212]HE 300'S ARE [211]OCIAL [211]CIENCE.  [193]N ATLAS WOULD BE FOUND IN 912."
2080 RETURN
2097 :
2098 REM *** ENCOUNTER #2           ***
2099 :
2100 POKE781,5:POKE782,0:SYSS:PRINT"[217]OU COME UPON A PURPLE MUSHROOM-SHAPED"
2110 PRINT"PLANT FOUR FEET TALL.  [217]OU WILL NEED TO IDENTIFY IT."
2120 POKE781,10:POKE782,0:SYSS:PRINT"[217]OU SEARCH IN: "
2130 POKE781,12:POKE782,0:SYSS:PRINT"1) 200'S"
2140 POKE781,14:POKE782,0:SYSS:PRINT"2) 500'S"
2150 R1$="[212]HE 200'S ARE [210]ELIGION AND [205]YTHOLOGY."
2160 R2$="[197]XCELLENT DECISION!  [193] BOOK ON PLANTS   WOULD BE IN THE 580'S."
2170 RETURN
2197 :
2198 REM *** ENCOUNTER #3           ***
2199 :
2200 POKE781,5:POKE782,0:SYSS:PRINT"[201]N THE DISTANCE YOU SEE A HERD OF"
2210 PRINT"STRANGE BEASTS.  [212]O FIND OUT WHETHER TO"
2215 PRINT"APPROACH THEM YOU WILL NEED TO IDENTIFY THEIR SPECIES."
2220 POKE781,10:POKE782,0:SYSS:PRINT"[217]OU SEARCH IN: "
2230 POKE781,12:POKE782,0:SYSS:PRINT"1) 500'S"
2240 POKE781,14:POKE782,0:SYSS:PRINT"2) 700'S"
2250 R1$="[199]OOD CHOICE!  [193] BOOK AN ANIMALS WOULD BEFOUND IN THE 590'S."
2260 R2$="[212]HE 700'S ARE [211]PORTS AND THE [193]RTS."
2270 RETURN
2297 :
2298 REM *** ENCOUNTER #4           ***
2299 :
2300 POKE781,5:POKE782,0:SYSS:PRINT"[201]N THE RUINS OF AN OLD BUILDING YOU"
2310 PRINT"FIND SOME SCROLLS WRITTEN IN [204]IBRARESE."
2315 PRINT"[217]OU WILL NEED A [204]IBRARESE-[197]NGLISH       DICTIONARY TO TRANSLATE."
2320 POKE781,10:POKE782,0:SYSS:PRINT"[217]OU SEARCH IN: "
2330 POKE781,12:POKE782,0:SYSS:PRINT"1) 930-999"
2340 POKE781,14:POKE782,0:SYSS:PRINT"2) 400'S"
2350 R1$="930-999 ARE BOOKS ARE [200]ISTORY."
2360 R2$="[212]ERRIFIC!  [196]ICTIONARIES ARE FOUND IN THE400'S."
2370 RETURN
2397 :
2398 REM *** ENCOUNTER #5           ***
2399 :
2400 POKE781,5:POKE782,0:SYSS:PRINT"[215]HEN YOU TRANSLATE THE SCROLL YOU FIND"
2410 PRINT"THAT IT IS A TALL TALE ABOUT A"
2415 PRINT"LEGENDARY HERO.  [212]O READ MORE LEGENDS.."
2420 POKE781,10:POKE782,0:SYSS:PRINT"[217]OU SEARCH IN: "
2430 POKE781,12:POKE782,0:SYSS:PRINT"1) 300'S"
2440 POKE781,14:POKE782,0:SYSS:PRINT"2) 100'S"
2450 R1$="[199]OOD CHOICE!  [194]OOKS ON FOLKLORE ARE IN  398"
2460 R2$="[194]OOKS ON [208]HILOSOPHY ARE IN THE 100'S."
2470 RETURN
2497 :
2498 REM *** ENCOUNTER #6           ***
2499 :
2500 POKE781,5:POKE782,0:SYSS:PRINT"[211]EARCHING IN THE RUINS YOU DISCOVER A"
2510 PRINT"STATUE OF AN ANCIENT LIBRARIAN.  [200]IS"
2515 PRINT"NAME IS [196]UI.  [212]O FIND OUT MORE ABOUT    HIS LIFE..."
2520 POKE781,10:POKE782,0:SYSS:PRINT"[217]OU SEARCH IN: "
2530 POKE781,12:POKE782,0:SYSS:PRINT"1) 920-921"
2540 POKE781,14:POKE782,0:SYSS:PRINT"2) 800'S"
2550 R1$="[197]XCELLENT!  [194]IOGRAPHIES ARE BOOKS ABOUT THE LIVES OF REAL PEOPLE."
2560 R2$="[212]HE 800'S ARE [204]ITERATURE AND [208]OETRY."
2570 RETURN
2597 :
2598 REM *** ENCOUNTER #7           ***
2599 :
2600 POKE781,5:POKE782,0:SYSS:PRINT"[201]N THE RUINS YOU FIND A MURAL WHICH"
2610 PRINT"SHOWS LIBRARIANS PLACING CARDS IN"
2615 PRINT"TRAYS.  [201]T MUST BE A GAME.  [217]OU WANT TO LEARN HOW TO PLAY."
2620 POKE781,10:POKE782,0:SYSS:PRINT"[217]OU SEARCH IN: "
2630 POKE781,12:POKE782,0:SYSS:PRINT"1) 500'S"
2640 POKE781,14:POKE782,0:SYSS:PRINT"2) 700'S"
2650 R1$="[217]OU WOULD FIND INFORMATION ON [211]CIENCE   IN THE 500'S."
2660 R2$="[199]OOD CHOICE!  [212]HE 700'S ARE [211]PORTS AND  [199]AMES."
2670 RETURN
2697 :
2698 REM *** ENCOUNTER #8           ***
2699 :
2700 POKE781,5:POKE782,0:SYSS:PRINT"[217]OU GET HUNGRY AND STOP FOR A SNACK."
2710 PRINT"[212]O FIND OUT THE PROPER SETTING TO COOK"
2715 PRINT"BOOKWORMS-IN-A-BLANKET IN YOUR MINI-    MICROWAVE...."
2720 POKE781,10:POKE782,0:SYSS:PRINT"[217]OU SEARCH IN: "
2730 POKE781,12:POKE782,0:SYSS:PRINT"1) 200'S"
2740 POKE781,14:POKE782,0:SYSS:PRINT"2) 600'S"
2750 R1$="[210]ELIGION AND [205]YTHOLOGY ARE IN THE 200'S"
2760 R2$="[211]UPER!  [194]OOKS ON [195]OOKING ARE LOCATED IN 641.5."
2770 RETURN
2797 :
2798 REM *** ENCOUNTER #9           ***
2799 :
2800 POKE781,5:POKE782,0:SYSS:PRINT"[193]FTER EATING YOU DECIDE TO REST. [194]EFORE"
2810 PRINT"FALLING ASLEEP YOU WANT TO READ ABOUT"
2815 PRINT"33RD CENTURY [204]IBRARIUM WHEN [196]UI REIGNED AS EMPEROR."
2820 POKE781,10:POKE782,0:SYSS:PRINT"[217]OU SEARCH IN: "
2830 POKE781,12:POKE782,0:SYSS:PRINT"1) 930-999"
2840 POKE781,14:POKE782,0:SYSS:PRINT"2) 300'S"
2850 R1$="[212]ERRIFIC!  [200]ISTORY IS FOUND IN 930-999."
2860 R2$="[212]HE 300'S ARE [211]OCIAL [211]CIENCE."
2870 RETURN
2897 :
2898 REM *** ENCOUNTER #10          ***
2899 :
2900 POKE781,5:POKE782,0:SYSS:PRINT"[201]N YOUR READING YOU FIND THAT THE"
2910 PRINT"ANCIENT LIBRARIANS BELIEVED IN THE GOD"
2915 PRINT"[194]UK.  [217]OU WANT TO LEARN MORE ABOUT THEIRBELIEFS."
2920 POKE781,10:POKE782,0:SYSS:PRINT"[217]OU SEARCH IN: "
2930 POKE781,12:POKE782,0:SYSS:PRINT"1) 200'S"
2940 POKE781,14:POKE782,0:SYSS:PRINT"2) 400'S"
2950 R1$="[198]ANTASTIC!  [212]HE 200'S ARE [210]ELIGION AND  [205]YTHOLOGY."
2960 R2$="[212]HE 400'S ARE [196]ICTIONARIES."
2970 RETURN
63000 REM   HOOK BACK TO L.S.
63002 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63004 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END